Voorbeeld van Friend

Wanneer u de volgende programmacode in een klassenmodule plaatst, wordt de lidvariabele dblBalance toegankelijk voor alle gebruikers van de klasse in het project. Elke gebruiker van de klasse kan de waarde ophalen. Alleen programmacode in het project kan echter een waarde aan die variabele toekennen.

Private dblBalance As Double

Public Property Get Balance() As Double
    Balance = dblBalance
End Property

Friend Property Let Balance(dblNewBalance As Double)
    dblBalance = dblNewBalance
End Property